set fd [open "C:/WebAccess/txt/text.txt" r]
set i 0
while {![eof $fd]} {

gets $fd data
#BWSPOOL "i=$i \r\n"
SETVAL index($i)=$i
SETVAL array1($i)=[lindex $data 0]
SETVAL array2($i)=[lindex $data 1]
SETVAL array3($i)=[lindex $data 2]
SETVAL array4($i)=[lindex $data 3]

set a 1
set i [expr $i+$a]

}

close $fd



